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*+F ILE*®1D**CHMPAREN 
CCCCCCCC HH HH MM MM PPPPPPPP AAAAAA =o RRRRRRRR-~——s EEEEEEEEEE NN NN | 
CCCCCCCC HH HH MM MM PPPPPPPP AAAAAA —-RRRRRRRR__—s EEEEEEEEEE NN NN 
cc HH HH MMMM MMMM PP PP AA AA RR RR EE NN NN | 
CC HH HH MMMM MMMM PP PP AA AA RR RR EE NN N | 
CC HH HH MM MM MM PP PP AA AA RR RR EE NNNN NN | 
CC HH HH MM MM MM PP PP AA AA RR RR EE NNNN ON | 
CC HHHHHHHHHH = MM MM PPPPPPPP AA AA RRRRRRRR  EEEEEEEE NN NN NN 
CC HHHHHHHHHH = MM MM PPPPPPPP = AA AA RRRRRRRR EEEEEEEE NN NN NN | 
CC HH HH MM MM PP AAAAAAAAAA RR RR EE N  NNNN 
CC HH = HH OM MM PP AAAAAAAAAA RR RR Fe NN NNNN 
CC HH = HH OMM MM PP AA AA RR RR EE NN NN tare | 
CC HH HH MM MM PP AA AA RR RR_ EE NN NN ned | 
CCCCCCCC HH HH MM MM PP AA AA RR RR EEEEEEEEEE NN NN neh | 
CCCCCCCC HH HH MM MM PP AA AA RR RR EEEEEEEEEE NN NN iene | 
| 
LL WII SSSSSSSS | 
LL HI! SSSSSSSS | 
LL II SS | 
LL II SS 
LL I] SS | 
LL I] SS | 
LL 1] SSSSSS 
LL 1] SSSSSS 
LL 11 SS 
LL I] SS 
LL I] SS 
LL I] $$ 
LLLLLLLLiL =sTITIII «= SSSSSSSS 
LLLLLLLELEE CSE «= SSSSSSSS 
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; 1 608) ZTITLE ‘EDTSC ome - handle parentheses’ ° 
3 ¢ O06 MODULE EDTSCHMPAREN ' Handle Parentheses ; 
; 83 pOENt = *'v04-000' ! File: CHMPAREN.BLI Edit: JBS1007 : 
; 4 004 0 = : 
3 5 Ban? : BEGIN : 
H ; G00? 1 RRR RA ARERR AREER AAEE AE AAAAA RTARTA TEE EATER ° 
3 1 fe * : 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * . 
3 1} Bata : bd ALL RIGHTS RESERVED. * | : 
2 '® P 
3 i $O18 1 !® THIS SOFTWARE IS FAN SHED UNDER A LICENSE AND MAY BE USED AND copier * . 
; 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
: 15 0015 1 !* CLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 18 0018 is TRANSFERRED. * : 
: '@ * | ; 
= 0020 1 !« THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | : 
' 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
: $$ 4 : :* CORPORATION. * ‘ 
Py Mad * b 
:; 26 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * | : 
3 $2 fH : he SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * “ 
3 '® * | Ps 
ay 0027 1 !* * : 
: ss 3 LS eee eee eee eR RARE AAA AAA AAA AEAA AAA AAA A AAA AAARAAAAATAA KAA Ps 
3 1! 3 
3 30 0030 1 : 
0031 1 !+4¢ ; 
3 32 0032 1! FACILITY: EDT -- The DEC Standard Editor : 
, 35 0033 1! : 
3 34 0034 1 ! ABSTRACT: F 
3 35 0035 1! : 
: $9 Boss : This module implements a parenthesized string of commands. ‘ 
3 $3 it ! ENVIRONMENT: Runs at any access mode - AST reentrant : 
: re Bneo : : AUTHOR: Bob Kushlis, CREATION DATE: Unknown : 
3s €2 0042 1 ! MODIFIED BY: 3 
s; 65 00435 1! 3 
; «(46 044 1! 1-001 - Original. DJS rat bs 2 This module was created b : 
: 45 045 1! extracti ng the routine 4 SPARE NT from module CHANGE.BLI. : 
; 646 0046 1! 1-005 - Regularize headers. nore : 
. OF 0047 1 ! 1-003 - Use new message + A “Bs 1os-Aug-1981 3 
s 68 0048 1 ! 1-004 - Add return values. JBS “Oce=" : 
: 49 0049 1 ! 1-005 = Add an entry point so that this module can be loaded back into 3 
: 50 Bpeo ¢€ sonery 9 after calling the change mode parser. Also, use a different 3 
gs 3 O51 1! symbol for the name of the change mode parser so the catt can be : 
3 26 6036 &g. ignored by the over Lay analyzer (and so that the call can be 5 
; &7 Oz ' wngercented by, a@ routine which will load us back into memory). 3 
: r=1 3 
; 28 0055 1 ! 1-006 = Set a flag if control C actually aborts something. JBS ehonay~196e : 
; 8026 1 ! 1-007 - If an error occurs in processing the commands inside parens, such : 
om 0057 1! as string not found, continue after the right paren. JBS 23-Feb-1983 : 
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p-1984 00:06:07 VAX-11 Bliss-32 V4.0-74 Page 3 
p-1984 19:98:40 DISKSVMSMASTER: CEDT.SRC CHMPAREN.BLI;1> (2). 


; «61 0060 1 XSBTTL ‘Declarations’ 
Py 6 061 1! 
; 6 062 1 ! TABLE OF CONTENTS: 
: 64 065 1! 
; 0064 1 
; 66 0065 1 REQUIRE "EDTSRC: TRAROUNAM'; 
OF 0504 1 
ff. 0806 | MEDTSSPARENT + Pettert ond | 
: ° ' Collect and execute a parenthesized string of commands 

; i. Fat ; EDTSSLOAD_CHMPAREN : NOVALUE; ' Load this module into Semery (on the ppp- 11) 

a B20? 1! 

ey : 510 1 ! INCLUDE FILES: 

>; 7 0511 1: 

: 2. b216 1 

3 76 051 1 REQUIRE ‘EDTSRC:EDTREQ'; 

ee 0648 1 

ee 0649 1! 

; 79 0650 1 ! MACROS: 

; & 0651 1! 

3; 6«¢BT 8026 1! NONE 

; § 0653 1! 

: 8 0654 1 ! EQUATED SYMBOLS: 

s 8 0655 1! 

3; 85 0656 1! NONE 

3 (86 0657 1 | | 

3 87 0658 1 ! OWN STORAGE: 

;: BB 0659 1! 

ae. 0660 1! NONE 

;s 0661 1! 

3 91 Bees 1 ! EXTERNAL REFERENCES: 

; % 65 1! 

9 0664 1! In the routine | 
| 
| 
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= EDTSSPARENT = handle parentheses 14-Sep-1984 12:22:40 DISKSVMSMASTER: CEDT.SA&CJCHMPAREN.BLI;1 (3) 
; 063 } ZSBTTL ‘EDTSSPARENT = handle parentheses’ 
5 3 $e 1 GLOBAL RGUTINE EDTSSPARENT ( ' Handle parentheses 
; #98 668 1 ' Number of times to execute 
; 99 be88 1 EXECUTE ' 1 = execute the commands 
: 100 670 1 )z 
: 101 671 1 
: 10¢ ore 1 !e¢ 
; Is? Beez : FUNCTIONAL DESCRIPTION: 
; 105 0675 1! This routine implements a parenthesized string of commands. The 
; 196 Bere 1! etcing is analyzed without execution in order to verify it syntactically 
; 10 677 1! and find the end of the string. It is then executed COUNT times, or until 
; 108 0678 1! a command in the string fails. In either case, EDTSSA_CMD_BUF is Left pointing 
5 1% Be28 : } at the first character after the parenthesized command List. 
s i se? 1 ! FORMAL PARAMETERS: 
3 Wg 06 § 1! 
: 11 0683 1 ! COUNT Number of times to execute 
: 4116 0684 1! 
3 115 0685 1! EXECUTE 1 = execute the commands 
; 116 0686 1! 
om ile 0687 1 ! IMPLICIT INPUTS: 
; #118 0688 1! 
3: «6119 0689 1! EDTSS$A_CMD_BUF 
: 120 0690 1! 
: 121 0691 1°! IMPLICIT OUTPUTS: 
oi) ; 0692 1! 
3 \§ 0695 1! EDT$$G_CC_DONE 
: 124 0694 1! 
s 125 0695 1 ! ROUTINE VALUE: 
: 126 0696 1! ‘ 
: 127 0697 1! 1 = ok, 0 = control C, 2 = end of journal file 
: 128 0698 1! 
; 129 0699 1 ! SIDE EFFECTS: 
3; ia 0700 1! 
3 131 0701 1! NONE 
3 ¥ ¢ 144 1! 
= 0705 1 !-- 
, 7 0704 1 
3 135 14 BEGIN 
2% 706 
o> iar 0707 EXTERNAL ROUTINE : 
3 13 A EDTSSMSG_BELL : NOVALUE, ' Output a message to the terminal with a warning bell 
; #139 70 EDTSSCHK_CC ! Check to see if a CTRL/C has been typed 4 
3 re at EDTSSCHM_PAREXE_NOOVERLAY; ! Parse and execute a change mode command string 
: i Ne ? asteam, 
; «14 71 EDTSSA_CMD_BUF, ! Command string pointer 
: 13% ay EDT$$G_CC_BONE; ! Set to 1 if control C actually aborts something 
: 146 ay MESSAGES ((PARENMIS)); 
; «614 71 
3; «148 718 OCAL 
3 «149 719 SUCCEED, 
; 150 $0 COM_EN 
> 151 0721 COM~START; 
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EDTSSA_CMD_BUF = COM_START = CHSPLUS (.EDTSSA_CMD_BUF, 1); 
i Check syntax and find the end of the command. 
SUCCEED = EDTSSCHM_PAREXE_NOOVERLAY (0); 
IF (.SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 
COM_END = .EDTSSA_CMD_BUF ; 
iif we are not positioned on the right paren we have a syntax error. 


VIIA 
wr 


uw 


SISSY 


ono 


IF (CHSRCHAR (.COM_END) NEQ %C')") 
THEN 


BEGIN 
EDTSSMSG_BELL (EDTS_PARENMIS); 
RETURN (0); 


- EXECUTE 
THE 


DECR I FROM .COUNT = 1 TO 0 DO 
BEGIN 


ee DNA NINN ISO AAO AOAAOOO UW 


‘co 
“ 


SBLS 


IF EDTSSCHK_CC () 
THEN 


BEGIN 
EDT$$G_CC_DONE = 1; 
Be TURN (03; 


EDTSSA_CMD_BUF = .COM_START; 
SUCCEED = EDTSSCHM_PAREXE_NOOVERLAY (1); 


IF (. SUCCEED NEQ 1) THEN EXITLOOP; 
END; 


EDTSSA_CMD_BUF = CHSPLUS (.COM_END, 1); 


i Don't indicate an error in executing the command within parens as an error 
! in eqecut ine this command. This allows multiple commands to be executed 
y 


terminated 


SSSLESRANLSE 


search failures. 


IF (.SUCCEED EQL 0) THEN SUCCEED = 1; 


Be Se Oe Se Se Oe Oe Ge Se Be Se Se Fe Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Ge Ge Se Se Ge Se Ge Se oe SH Se SH Se SH Oe SH Oe Hee SH as 


PORIRIOL a tt 


ooo 


WwnN— 


RETURN (.SUCCEED); 
END; 


' of routine EDTSPARENT 


«TITLE EDT 
-IDENT \v04-000\ 


PF haed Pa 
:CEDT.SRCJCHMPAREN.BLI;1 


SCHMPAREN EDTSCHMPAREN - handle parentheses 
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Ou 500 EDTSSPARENT = handle sorentheses 12-8 08-1 ope 90:98:05 DISKSVMSMASTER: CEDT.SRC CHMPAREN.BLI: 1” (3) 
-EXTRN EDTSSMSG_BELL, EDTSSCHK_CC 
»EXTRN EDTSSCHM PAREXE_NOOVERLAY 
«EXTRN EDTSSA_CAD BUF, EDT$$G_CC_DONE 
-EXTRN EDTS_PARENAIS 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


; Routine Size: 125 bytes, Routine Base: _EDTSCODE + 0000 


; 204 0774 #1 | 


O0FC 9009 -ENTRY EDTSSPARENT, Save R2,R3,R4,R5,R6,R7 3; 0667 | : 

57 900000006 0 9E 0000 MOV EDTSSCHM_PAREXE_NOOVERLAY, R7 : | : 

6 000000006 rE 4 MOV EDTSSA g D_BUF, R6 3 ‘ 

54 66 1 €1 00010 ADDL #1, EDTSSA_CMD_BUF, COM_START ; 0723. ‘ 
66 4 00 9014 MOVL § COM_START, EDTSS$A_CMD_BOF : | : 

E D4 00017 CLRL. 0 = (SP) : 0727) : 

? Q1 FB 9019 CALLS #1, EDTSSCHM_PAREXE _NOOVERLAY : | : 

3 D0 0001C MOVL RO, SUCCEED : | : 

01 2 01 OO1F CMPL SUCCEED, #1 : 0729 : 

18 2 BNEG = 6$ : | : 

55 66 D0 00024 MOVL § EDTSSA_CMD_BUF, COM_END > 0731 | ; 

29 63 94 00 q CMB (COM_ERD) #41 ; 0736. : 

000000006 BF DD 0002C PUSHL #EDTS_PARENMIS ; 0739) : 

000000006 00 01 Fe 00 H CALLS a. EBTSSMSG_BELL tenes : 
26 08 AC £9 00038 18 BLBC EXECUTE, 5$ > 0743 . 

2 04 AC DO 0005F MOVL COUNT, i : 0756 : 

000000006 00 69 FB 00045 2$ CALLS #0, EDTSSCHK_CC : 0749 : 
9 0 £9 0004¢ BLEC =—-«aRO. 38 : | ; 

000000006 00 Q1 dO 004 MOVL #1. EDTS$G_CC_DONE : 0752 | ; 
¢2 11 00056 BRB : 075 ; 

66 4 00 00058 3s: MOVL § COM_START, EDTS$A_CMD_BUF : 0756 ; 

01 0D 00058 PUSHL #1 : 0757 ; 

67 01 FB 0005D CALLS #1, EDTSSCHM_PAREXE_NOOVERLAY : ; 

53 50 D0 90060 MOVL RO, SUCCEED ; : 

01 33 D1 00065 cMPL SUCCEED. #1 : 0759 : 

DA 32 F4 00068 4$: SOBGEQ I, 2s : 0746 ; 

66 01 A i 00068 5$: MOV 1(R5), EDTSSA_CMD_BUF : 0763 ; 

gs Us S33 aaas gute Red ea 

53 01 00 90075 MOVL #1, SUCCEED : ; 

50 53 BO 00076 6$: MOVL SUCCEED, RO : 0772 : 

50 b4 00074 7$: CLRL = RO : 0773 ; 

4 0007C RET : 3 
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EDTSSLOAD_CHMPAREN = load this module into memo 14-Sep-1984 12:22:40 DISKSVMSMASTER 

3 06 TT? ! ZSBTTL ‘EDTSSLOAD_CHMPAREN = Load this module into memory' 

; 208 58 1 GLOBAL ROUTINE EDTSSLOAD_CHMPAREN ! Load this module into memory 

; 209 ore 1 : NOVALUE = 

; 6210 779 «1 

s 2ii 780 1 !4¢ 

3 \§ f 1 : FUNCTIONAL DESCRIPTION: 

: 14 7 é 1! This routine has no function. It exists as an entry point so that 

TF ay. 7 1; EDTSSCHM_PAREXE _NOOVERLAY can call this module back into memory before 

5 18 f 5 } returning to it. 

: i oF 1 ! FORMAL PARAMETERS: 

: 1 788 1! 

: 0 0789 1! NONE 

: 1 7 1! 

: ¢ 791 #1 =! IMPLICIT INPUTS: 

; 138 1! 

3 4 0793 1! NONE 

; 5 0794 1! 

3 : 0795 1 ! IMPLICIT OUTPUTS: 

; 444) 1! 

; 8 0797 1! NONE 

3 $3 0798 1! 

; 0 0799 1 ! ROUTINE VALUE: 

aa +). 0800 1! 

3 3 0801 1! NONE 

; € 0802 1! 

3 0805 1 ! SIDE EFFECTS: 

; 5 0804 1! 

3 0805 1! NONE 

; $30 0806 1! 

; 238 0807 1 !-- 

; 239 0808 1 

; 240 0809 § BEGIN 

; 24) 0810 0 

; 242 0811 +1 END; ! of routine EDTS$LOAD_CHMPAREN 


0000 00000 -ENTRY EDTSSLOAD_CHMPAREN, Save nothing 
04 00002 RET 


; Routine Size: 3 bytes, Routine Base: _EDTSCODE + 007D 


43 pets 1 
au 0815 1 !<BLF/PAGE> 


0 reg Page 7) 
:CEDT.SRCICHMPAREN.BLI;1 (4). 


; 0777 
3; 0811 


K 5 

EDTSCHMPAREN EDTSCHMPAREN = handle parentheses 16-Sep-19 VAX-11 Bliss-32 V4.0-7 
§04+000 EDTSSLOAD_CHMPAREN - ibad this module into memo 14- Haat 99: 98:95 DISKSVMSMASTER: Cedi sac CHMPAREN.BLI; ‘ie 
;s & 814 1 END ! of module EDTSCHMPAREN 
: 37 O83 1 
$ 16 0 ELUDOM 
H PSECT SUMMARY 
: Name Bytes Attributes 
:  EDTSCODE 128 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
; canscane SyEROLG Soreeece Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: :LEDT. SRCJEDT L32;1 377 1 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
: FL SSS EMECK OSE ELD, SUE TEAL APT ENE LE SHOTRALEDACE AL LS 4. 5S8: CHNPAREN/ER ICRI 1 COMPARED MSRCS$: CHMPAREN.BLI/UPDATE=(ENH$: CHMP 

size: 128 code + 0 data bytes 

un Time 00:12.7 
ple Hees 3 


00:1 
Lines/CPU Min: 1385 38 
Lexemes/CPU-Min: 02 

f Used: 79 pages 
Compilation Complete 


EOT 
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